home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / amoslist / amoslist.mar / 000016_amos-request@svcs1.digex.net_Mon Mar 3 12:18:59 1997.msg < prev    next >
Text File  |  1997-04-01  |  3KB  |  109 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id MAA12726
  3.     for <mcox@access.digex.net>; Mon, 3 Mar 1997 12:18:56 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id JAA14987
  6.     for amos-out; Mon, 3 Mar 1997 09:41:38 -0500 (EST)
  7. Received: from mail3.access.digex.net (mail3.access.digex.net [205.197.247.4])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id JAA14984
  9.     for <amos-list@svcs1.digex.net>; Mon, 3 Mar 1997 09:41:37 -0500 (EST)
  10. Received: from smtp1.xs4all.nl (smtp1.xs4all.nl [194.109.6.51])
  11.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id JAA19650
  12.     for <amos-list@access.digex.net>; Mon, 3 Mar 1997 09:41:35 -0500 (EST)
  13. Received: from xs4all.nl (collin@drt01-28.dial.xs4all.nl [194.109.42.29]) by smtp1.xs4all.nl (8.7.6/XS4ALL) with SMTP id PAA12996; Mon, 3 Mar 1997 15:41:16 +0100 (MET)
  14. From: Branko Collin <collin@xs4all.nl>
  15. To: Reine Johansson <reine.johansson@mbox2.swipnet.se>
  16. CC: Amos Discussion List <amos-list@access.digex.net>
  17. Date: Mon, 03 Mar 1997 13:39:38 +0100
  18. Message-ID: <yam7001.1908.3150360@smtp.xs4all.nl>
  19. In-Reply-To: <328.7000T1208T2885@mbox2.swipnet.se>
  20. X-Mailer: YAM 1.3.4 [020] - Amiga Mailer by Marcel Beck
  21. Subject: Re: Systemtime
  22. MIME-Version: 1.0
  23. Content-Type: text/plain
  24. Status: RO
  25. X-Status: 
  26.  
  27. Op 02-maa-97 schreef Reine Johansson:
  28.  
  29. >How do I get the systemtime in AMOS? Example code _please_
  30.  
  31. Actually, this is part of the Amos Creator distribution. Well, who is going to
  32. sue me?
  33.  
  34. Come to think of it, it might not be a bad idea to ask Europress to release at
  35. least the example code in the PD, providing of course they own the rights to
  36. it in the first place.
  37.  
  38. '----------------------------------
  39. ' How to get TIME and DATE in AMOS 
  40. '----------------------------------  
  41. '
  42. _DATE$ : Print Param$
  43. _TIME$ : Print Param$
  44. '
  45. Procedure _DATE$
  46.    '
  47.    ' Call DOS DateStamp function
  48.    T$=Space$(12)
  49.    Dreg(1)=Varptr(T$)
  50.    RIEN=Doscall(-192)
  51.    NJ=Leek(Varptr(T$))
  52.    '
  53.    ' Find this year's first day 
  54.    A=1978 : JOUR=7
  55.    Do 
  56.       BIS=0 : If(A and 3)=0 : BIS=1 : End If 
  57.       Exit If NJ-365-BIS<0
  58.       Add JOUR,1+BIS : If JOUR>7 : Add JOUR,-7 : End If 
  59.       Add NJ,-365-BIS
  60.       Inc A
  61.    Loop 
  62.    '
  63.    ' Find month 
  64.    M=1
  65.    Do 
  66.       Read N
  67.       Exit If NJ-N<0
  68.       Add NJ,-N : Inc M
  69.    Loop 
  70.    Inc NJ
  71.    '
  72.    ' Fabrique la chaine 
  73.       J$=Mid$(Str$(NJ),2) : If Len(J$)<2 : J$="0"+J$ : End If 
  74.       M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If 
  75.       A$=Mid$(Str$(A),2)
  76.       DATE$=J$+"-"+M$+"-"+A$
  77.    '
  78.    ' Length of each month 
  79.    Data 31,28+BIS,31,30,31,30,31,31,30,31,30,31
  80.    '
  81. End Proc[DATE$]
  82. Procedure _TIME$
  83.    '
  84.    ' Call DOS function
  85.    T$=Space$(12)
  86.    Dreg(1)=Varptr(T$)
  87.    RIEN=Doscall(-192)
  88.    MN=Leek(Varptr(T$)+4)
  89.    SEC=Leek(Varptr(T$)+8)
  90.    '
  91.    ' Minutes calculation
  92.    H=MN/60 : H$=Mid$(Str$(H),2) : If Len(H$)<2 : H$="0"+H$ : End If 
  93.    M=MN mod 60 : M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If 
  94.    '
  95.    ' Seconds calculation  
  96.    S=SEC/50 : S$=Mid$(Str$(S),2) : If Len(S$)<2 : S$="0"+S$ : End If 
  97.    '
  98.    ' Final string 
  99.    TIME$=H$+":"+M$+":"+S$
  100.    '
  101. End Proc[TIME$]
  102.  
  103.  
  104. -----
  105. Branko Collin       http://www.xs4all.nl/~collin
  106. collin@xs4all.nl    http://www.kun.nl/undans/members/branko.htm
  107.      "Erm... Erm... should I say something interesting now?"
  108.                          - Branko Collin -
  109.